Visual Basic Controls/Visual Basic Controls.iso/vbcontrol/ccounter/coolcoun.exe/COUNTER.CGI

Text File | 1998-02-14 | 402 b | 27 lines

#!/usr/local/bin/perl

print "Content-Type: text/plain\n\n";
$CounterFN = ".counter";

$NewValue = 0;

if (-f $CounterFN)
{
  open(CNT,"<$CounterFN");
  $NewValue = <CNT>;
  close(CNT);
}

$qs = $ENV{'QUERY_STRING'};

if ($qs ne "GetValue")
{
   $NewValue = $NewValue + 1;

   open(COUNTER,">$CounterFN");
   print COUNTER "$NewValue";
   close(COUNTER);
}

print $NewValue;